home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Programming / powerd / examples / Dir.d < prev    next >
Encoding:
Text File  |  1999-06-23  |  578 b   |  24 lines
  1. OPT    DOSARGONLY
  2.  
  3. MODULE    'dos/dos'
  4.  
  5. PROC main()
  6.     DEF    info:FileInfoBlock,lock,c=0
  7.     IF lock:=Lock(arg,-2)
  8.         IF Examine(lock,info)
  9.             IF info.DirEntryType>0
  10.                 PrintF('Directory of: \s\n',info.FileName)
  11.                 WHILE ExNext(lock,info)
  12.                     PrintF(IF info.DirEntryType>0 THEN ' \e[32m\l\s[27] Drawer\e[0m' ELSE ' \l\s[26] \r\d[7]',info.FileName,info.Size)
  13.                     IF ++c=2
  14.                         c:=0
  15.                         PrintF('\n')
  16.                     ELSE PrintF(' ')
  17.                 ENDWHILE
  18.                 IF c THEN PrintF('\n')
  19.             ELSE PrintFault(IOErr(),'ddir')
  20.         ELSE PrintFault(IOErr(),'ddir')
  21.         UnLock(lock)
  22.     ELSE PrintFault(IOErr(),'ddir')
  23. ENDPROC
  24.